UC知道急急~~`asp删除图片代码删除不了力图
来源：百度知道 编辑：UC知道 时间：2024/05/24 16:33:39
图片文件夹地址是：admin/img 数据表是new 图片字段是：img
下面代码就是删除不了文件夹里面的图片
<%
Function DeleteFile(FileName)
FileName=server.MapPath(FileName) '必须转换成绝对路径的
dim Fso
Set Fso = CreateObject("scripting.filesystemobject")
if Fso.FileExists(Filename) then '判断文件是否存在
Fso.DeleteFile filename
end if
Set Fso = nothing
End Function
%>
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from new where id="&id
rs.open sql,conn,1,3
DeleteFile(rs("img"))
rs.delete
rs.update
rs.close
set rs=nothing
%>
下面代码就是删除不了文件夹里面的图片
<%
Function DeleteFile(FileName)
FileName=server.MapPath(FileName) '必须转换成绝对路径的
dim Fso
Set Fso = CreateObject("scripting.filesystemobject")
if Fso.FileExists(Filename) then '判断文件是否存在
Fso.DeleteFile filename
end if
Set Fso = nothing
End Function
%>
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from new where id="&id
rs.open sql,conn,1,3
DeleteFile(rs("img"))
rs.delete
rs.update
rs.close
set rs=nothing
%>
你好，你的问题还是你的路径问题，我在你的代码上稍作修改，就可以了，代码如下：
<!--#include file="xh_conn.asp"-->
<%
Function DeleteFile(FileName)
aaa="img/"&FileName
bbb=server.MapPath(aaa) '必须转换成绝对路径的
dim Fso
Set Fso = CreateObject("scripting.filesystemobject")
if Fso.FileExists(bbb) then '判断文件是否存在
Fso.DeleteFile(bbb)
end if
Set Fso = nothing
End Function
%>
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from [new] where id="&id
rs.open sql,conn,1,3
DeleteFile(rs("img"))
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "xh_add.asp"
%>
以上代码经测试是没问题的~
我用的删除文章代码，可以批量删除文章html和字段的img，单个也可以，你试试
<%
Function delfile(path)
On Error Resume Next
If IsExists(path)=True Then
set fso = server.Crea